Автостарт программы "Ранний" по ячейке 65358/59 (RAMTOP-9)
с окончанием в точке перехвата.

God Mode:

New File [Автозапуск 1-1.tzx]				; Создать новую виртуальную кассету для записи данных
Cassette Recorder [Record]				; Включить виртуальный магнитофон на запись, открыв телепортационное окно 1232 поставив команду LD H, H
Debugger						; Открыть отладчик для ввода данных
Dec							; Переключить отображение чисел в десятичный режим
Go To 65220						; Переместиться по памяти на нужный адрес
65220 <-- 253 54 0 255 49 84 255 237 115 61 92 241	; Приведение в порядок системы после загрузки
65232 <-- 251 253 203 2 134 17 225 254 1 34 0		; И подготовка вывода текста на экран
65243 <-- 205 60 32 195 3 19 22 11 2 18 1 16 2
65256 <--TPAXHEM CTPAX ABTOCTAPTOM 1			; Выводимый текст

65318 <-- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0	; Очистка SP области от мусора для идеальной записи
65338 <-- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0	; Очистка SP области от мусора для идеальной записи
65358 <-- 65220						; Адрес запуска своей программы

; Запись блока с автосбросом

Go To 17996						; Переместиться по памяти на нужный адрес
17996 <-- 65220 0					; Стартовый адрес для блока данных и сброс после записи
18000 <-- 3						; Тип блока Bytes:
18001 <-- TPAX-CTPAX					; Имя заголовка
18011 <-- 156 65220					; Планируемая длина и стартовый адрес для заголовка

IX <-- 18000						; Указать место размещения шаблона заголовка
SP <-- 17996						; Cоздать временную SP-башенку в любом свободном месте
PC <-- 2436						; Установить Стрелочку на подпрограмму записи
Trace							; Выйти из отладчика и запустить программу
Cassette Recorder [Stop]				; Остановить магнитофон и закрыть телепортационное окно в адресе 1232 вернув команду EX AF, AF'

BASIC <-- LOAD ""CODE ENTER				; Выполнить BASIC фрагмент натуральным способом
Cassette Recorder [Play]				; Включить магнитофон на воспроизведение

Assembler EmuzWin: (без записи)

	ORG 65220

CTAPT:	LD (IY+0), 255			; Код вывода сообщения 0 OK для красоты
	LD SP, 65364			; Восстановление возврата в BASIC 
	LD (23613), SP
	POP AF
	EI
	RES 0, (IY+2)
	LD DE, TEKCT
	LD BC, KOHETC-TEKCT
	CALL 8252
	JP 4867
TEKCT:	DEFB 22, 11, 2, 18, 1, 16, 2, 'TPAXHEM CTPAX ABTOCTAPTOM 1'
KOHETC:

	ORG 65318

	DEFW 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ,0, 0, 0, 0, 0	; Зануление ненужных значений SP для красоты записи

	ORG 65358

	DEFW CTAPT				; адрес запуска своей программы
